Language/OS - Multiplatform Resource Library/LANGUAGE OS.iso/lisp/eulisp/comp0_89.lha/Feel/Boot/Compiler/peep-macs.fm

Text File | 1993-07-16 | 5KB | 1,144 lines

(standard0 list-fns)
14
1930
(3 if not match-instruct quote i cons nil let "Instruct error.." error-value peep-macs i-arg-ref 1 0 @-info-@ i-info and equal slot-value lambda combine-results (cons nil nil) list output next instruct test attributes one-of do-rules 39 (combine-results peephole-matcher preprocess-rules) ((strip (union (import standard0) (import list-fns))) combine-results peephole-matcher preprocess-rules) peep-macs)
36
0 0 17 0
5
0 0 0 0
3
0
31
0 0 130 0
17
1
36
0 0 27 0
5
0 0 0 0
4
0 0 35 0
46
1
(boot . make-installed-module)
34
2
36
0 0 60 0
5
0 0 0 0
8
3
4
0 0 33 0
5
0 0 36 0
3
0
39
8
0
5
0 0 37 0
3
0
39
28
1
5
0 0 38 0
3
0
39
28
1
17
1
1
(boot . install-local-bindings)
34
3
17
1
36
0 0 28 0
5
0 0 1 0
8
3
4
0 0 34 0
1
(boot . make-interface)
34
2
17
1
14
2
1
37
22
0
36
0 6 18 0
11
4
0 0 12 0
5
0 0 0 0
39
51
1
7
0 0 39 0
36
0 5 155 0
11
4
0 0 12 0
6
1
39
51
1
7
0 0 40 0
36
0 5 17 0
11
4
0 0 12 0
6
2
39
51
1
7
0 0 41 0
36
0 4 113 0
11
4
0 0 12 0
6
3
39
51
1
7
0 0 42 0
36
0 4 16 0
11
4
0 0 12 0
6
4
39
51
1
7
0 0 43 0
36
0 3 242 0
11
4
0 0 12 0
6
5
39
51
1
7
0 0 44 0
36
0 3 164 0
11
4
0 0 12 0
6
6
39
51
1
7
0 0 45 0
36
0 3 49 0
11
4
0 0 12 0
6
7
39
51
1
7
0 0 46 0
36
0 3 13 0
11
4
0 0 12 0
6
8
39
51
1
7
0 0 47 0
36
0 2 111 0
11
4
0 0 12 0
6
9
39
51
1
7
0 0 48 0
36
0 0 17 0
1
(list-fns . mk-finder)
9
34
0
7
0 0 49 0
36
0 0 40 0
36
0 0 22 0
1
(init . setter)
4
0 0 49 0
10
33
1
4
0 0 25 0
4
0 0 48 0
11
33
2
18
36
0 0 40 0
36
0 0 22 0
1
(init . setter)
4
0 0 49 0
10
33
1
4
0 0 26 0
4
0 0 45 0
11
33
2
18
36
0 0 40 0
36
0 0 22 0
1
(init . setter)
4
0 0 49 0
10
33
1
4
0 0 27 0
4
0 0 39 0
11
33
2
18
36
0 0 40 0
36
0 0 22 0
1
(init . setter)
4
0 0 49 0
10
33
1
4
0 0 28 0
4
0 0 43 0
11
33
2
18
36
0 0 40 0
36
0 0 22 0
1
(init . setter)
4
0 0 49 0
10
33
1
4
0 0 29 0
4
0 0 41 0
11
33
2
18
36
0 0 40 0
36
0 0 22 0
1
(init . setter)
4
0 0 49 0
10
33
1
4
0 0 30 0
4
0 0 46 0
11
33
2
18
36
0 0 40 0
36
0 0 22 0
1
(init . setter)
4
0 0 49 0
10
33
1
4
0 0 31 0
4
0 0 47 0
11
33
2
18
36
0 1 10 0
11
4
0 0 12 0
6
10
39
51
1
7
0 0 38 0
36
0 0 204 0
11
40
1
4
0 0 32 0
30
7
0 0 37 0
36
0 0 25 0
11
4
0 0 12 0
6
11
39
51
2
7
0 0 36 0
18
3
1
37
22
2
11
20
0
0
10
20
0
1
36
0 0 28 0
1
(boot . append)
12
19
0
0
26
8
4
19
0
1
26
11
34
2
10
19
0
1
27
42
32
0 0 33 0
10
19
0
0
27
42
32
0 0 12 0
3
0
31
0 0 10 0
10
19
0
0
27
31
0 0 34 0
10
19
0
0
27
42
32
0 0 15 0
10
19
0
1
27
31
0 0 13 0
36
0 0 13 0
12
40
1
14
5
2
39
37
4
0 0 36 0
36
0 0 15 0
12
19
0
0
27
8
5
10
33
1
36
0 0 16 0
8
4
19
0
1
27
8
6
10
33
1
11
14
6
3
9
13
4
26
31
0 0 155 1
4
0 0 21 0
4
0 0 6 0
3
0
39
36
0 0 19 0
4
0 0 38 0
8
6
3
0
31
0 0 14 0
3
0
39
39
14
4
2
39
37
36
0 0 16 0
4
0 0 49 0
8
4
26
10
33
1
11
27
14
4
2
16
9
13
3
33
1
4
0 0 7 0
4
0 0 7 0
4
0 0 24 0
36
0 0 49 0
1
(boot . append)
36
0 0 30 0
1
(init . mapcar)
36
0 0 46 0
8
11
40
1
8
11
3
0
12
34
-3
3
0
11
34
2
39
4
0 0 8 0
3
0
39
39
39
4
0 0 8 0
3
0
39
39
14
4
2
39
37
10
44
42
32
0 0 7 0
18
37
10
26
4
0 0 24 0
36
0 0 22 0
1
(boot . append)
8
6
27
3
0
11
34
2
39
3
0
39
14
4
2
39
37
10
26
4
0 0 6 0
3
0
39
14
4
2
39
37
1
(list-fns . fold)
36
0 0 69 0
12
40
2
36
0 0 30 0
1
(init . mapcar)
36
0 0 30 0
8
7
40
1
8
7
3
0
12
34
-3
4
0 0 23 0
12
14
7
4
9
13
5
34
3
18
4
0 0 38 0
9
13
3
18
3
0
31
0 0 252 1
4
0 0 22 0
12
12
3
0
39
39
14
5
2
39
37
4
0 0 7 0
4
0 0 8 0
4
0 0 21 0
4
0 0 6 0
3
0
39
36
0 0 20 0
4
0 0 38 0
8
8
26
3
0
31
0 1 55 1
3
0
39
39
39
3
0
39
39
14
4
2
39
37
18
4
0 0 18 0
16
39
37
4
0 0 2 0
36
0 0 20 0
4
0 0 44 0
8
5
26
3
0
31
0 0 29 1
36
0 0 21 0
4
0 0 38 0
8
6
27
26
3
0
31
0 1 124 1
4
0 0 7 0
4
0 0 8 0
4
0 0 8 0
3
0
39
39
39
3
0
39
39
39
14
4
2
39
37
4
0 0 9 0
4
0 0 16 0
4
0 0 17 0
4
0 0 6 0
3
0
39
39
3
0
39
39
3
0
39
4
0 0 18 0
36
0 0 49 0
1
(boot . append)
36
0 0 30 0
1
(init . mapcar)
36
0 0 31 0
8
11
40
1
8
11
3
0
12
34
-3
3
0
11
34
2
39
3
0
39
39
14
4
2
39
37
4
0 0 19 0
4
0 0 20 0
4
0 0 16 0
4
0 0 5 0
8
5
26
3
0
39
39
3
0
39
39
39
12
27
26
3
0
39
39
14
4
2
39
37
4
0 0 2 0
36
0 0 20 0
4
0 0 42 0
8
5
26
3
0
31
0 0 159 1
4
0 0 9 0
8
4
27
26
4
0 0 6 0
3
0
39
39
3
0
39
36
0 0 36 0
4
0 0 38 0
36
0 0 19 0
1
(extras0 . caddr)
8
11
10
34
1
3
0
31
0 2 119 1
3
0
39
39
39
4
0 0 7 0
4
0 0 8 0
4
0 0 8 0
3
0
39
39
39
3
0
39
39
39
14
4
2
39
37
18
4
0 0 15 0
3
0
31
0 0 5 0
11
42
32
0 0 10 0
17
3
3
0
37
11
26
3
0
39
9
4
0 0 13 0
4
0 0 6 0
8
5
3
0
39
39
39
3
0
39
29
18
36
0 0 37 0
3
0
8
6
27
1
(arith . +)
8
7
4
0 0 14 0
3
0
62
-3
3
0
31
0 0 72 1
14
5
2
39
37
36
0 0 41 0
1
(init . =)
36
0 0 19 0
1
(extras0 . length)
8
7
10
33
1
4
0 0 1 0
11
33
2
32
0 0 143 0
4
0 0 2 0
4
0 0 3 0
4
0 0 4 0
4
0 0 5 0
8
5
26
3
0
39
39
4
0 0 6 0
3
0
39
39
39
3
0
39
39
4
0 0 7 0
4
0 0 8 0
4
0 0 8 0
3
0
39
39
39
4
0 0 9 0
36
0 0 21 0
4
0 0 40 0
8
8
27
26
3
0
31
0 0 223 1
36
0 0 36 0
4
0 0 38 0
36
0 0 19 0
1
(extras0 . caddr)
8
12
10
34
1
3
0
31
0 3 162 1
3
0
39
39
39
3
0
39
39
39
14
4
2
39
37
1
(init . error)
4
0 0 10 0
1
(errors . <clock-tick>)
4
0 0 11 0
3
0
39
9
8
6
3
0
39
29
18
12
14
7
4
9
13
5
34
-3